perm filename POINTY.SAI[PNT,HE]3 blob
sn#330123 filedate 1978-01-26 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "POINTY"
C00005 ENDMK
Cā;
BEGIN "POINTY"
DEFINE #ARROW = FALSE;
REQUIRE "MAINPR.SAI[PNT,HE]" SOURCE_FILE;
! the definition of the flags is required to obtain different version of
POINTY. If none of them is defined POINTY is compiled with all flags
true
flag meaning
#HELP=true complete error messages, ? instruction
#KILL=true KILL instruction available
#DISPL=true display
#OUTPT=true file I/O
#MOVE=true movements allowed
#INPUT=true arm interface available
#ARROW=true arrow on display
;
! some combination of flags
POINTY is the complete version
POINTB is compiled with BAIL
POINT0 compiled with #ARROW=FALSE
POINT1 compiled with #KILL, #HELP=FALSE
POINT2 compiled with #DISPLY,#ARROW,#KILL,#HELP=FALSE
POINT3 compiled with #DISPLY,#ARROW,#KILL,#HELP,#OUTPT,#MOVE=FALSE
POINT4 compiled with #DISPLY,#ARROW,#KILL,#HELP,#OUTPT,#MOVE,#INPUT=FALSE;
END "POINTY"